home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 27
/
PCMania CD27_1.iso
/
pcmania
/
pov27
/
monument.pov
< prev
next >
Wrap
Text File
|
1994-10-04
|
7KB
|
265 lines
// Pov_Ray version 2.0
// Pantalla creada por: JAVIER RODRIGUEZ SANCHEZ
// 25 de Agosto de 1994
//
#include "colors.inc"
#include "textures.inc"
#include "stones.inc"
#include "shapes.inc"
#include "shapes2.inc"
camera{ //-10,25,-100
location <-11,32,-100>
look_at <0,25,0>
}
object{light_source{<20,80,-130> color White}}
object{light_source{<-60,41,0> color Gray40}}
// El suelo
object{plane{y,0}
pigment{color red 0.8 green 0.45 blue 0.1}
finish{ambient 0.2 diffuse 0.8}
normal{ripples 0.5 frequency 1000 scale 7000}
}
// Una montaña de fondo
object{
height_field{pot "fract001.pot"}
rotate y*15
pigment{ // Una textura sub-realista
granite
turbulence 0.6
color_map{
[0, 0.3 color red 0.8 green 0.45 blue 0.1
color Maroon ]
[0.3, 1 color red 0.8 green 0.45 blue 0.1
color red 0.8 green 0.45 blue 0.1]
}
}
translate <-.5,-.5,-.5> // Centro la imagen
scale <1000,250,300>
translate <0,120,350>
no_shadow // Para que no de la sombra en el cielo
}
object{sphere{<0,0,0>,1400} texture{Blue_Sky3 scale 1000}}
object{
union{
box{<-1,0,-1>,<1,1,1>}
box{<-0.6,1,-0.6>,<0.6,4,0.6>}
box{<-1,4,-1>,<1,4.5,1>}
box{<-0.5,4.5,-0.5>,<0.5,15,0.5>}
object{Octahedron scale <0.5,2,0.5> translate y*15}
}
texture{Stone16}
scale <4,1.3,4>
translate <0,10,0>
}
#declare Antorcha=union{
// light_source{<0,4,0> color White}
cylinder{<0,0,0>,<0,3,0>,1}
intersection{
sphere{<0,4.5,0>,2}
sphere{<0,4.5,0>,1.8 inverse}
plane{y,5}
}
intersection{
object{
height_field{
gif "fract002.gif" translate <-.5,-.5,-.5>
scale 8
translate <0,2.9,0>
}
texture{
pigment{
gradient y
turbulence 0.8
color_map{
[ 0, .3 color Red color Red ]
[.3, 1 color Red color Orange ]
}
}
finish{ambient 0.8}
}
}
cylinder{<0,4.5,0>,<0,17,0>,1.8 pigment{color Clear}}
}
}
#declare ca=sphere{<0,0,0>,1 scale <1.5,0.7,1.5>}
#declare Columna=union{
box{<-2,0,-2>,<2,2,2> texture{Stone11}}
object{ca translate y*2}
object{ca translate y*2.7}
object{ca translate y*3.4}
object{ca translate y*4.1}
object{ca translate y*4.8}
object{ca translate y*5.5}
object{ca translate y*6.2}
object{ca translate y*6.9}
object{ca translate y*7.6}
object{ca translate y*8.3}
object{ca translate y*9}
object{ca translate y*9.7}
object{ca translate y*10.4}
object{ca translate y*11.1}
object{ca translate y*11.8}
object{ca translate y*12.5}
object{ca translate y*13.2}
object{ca translate y*13.9}
object{ca translate y*14.6}
object{ca translate y*15.3}
object{ca translate y*16}
object{ca translate y*16.7}
object{ca translate y*17.4}
object{ca translate y*18.1}
object{ca translate y*18.8}
object{ca translate y*19.5}
object{ca translate y*20.2}
box{<-2,20.5,-2>,<2,22,2> texture{Stone11}}
scale <1,1.3,1>
}
object{Columna translate <-15,10,-15> texture{Stone12}}
object{Columna translate <15,10,-15> texture{Stone12}}
object{Columna translate <-15,10,15> texture{Stone12}}
object{Columna translate <15,10,15> texture{Stone12}}
object{box{<-21,0,-21>,<21,10,21>} texture{Stone13 scale 6}}
object{
union{
box{<-5,0,-22>,<5,10,-21> }
box{<-5,0,-23>,<5,9,-22> }
box{<-5,0,-24>,<5,8,-23> }
box{<-5,0,-25>,<5,7,-24> }
box{<-5,0,-26>,<5,6,-25> }
box{<-5,0,-27>,<5,5,-26> }
box{<-5,0,-28>,<5,4,-27> }
box{<-5,0,-29>,<5,3,-28> }
box{<-5,0,-30>,<5,2,-29> }
box{<-5,0,-31>,<5,1,-30> }
}
texture{Stone13}
}
#declare ci=cylinder{<0,0,0>,<0,5,0>,0.7}
object{
union{
object{ci translate <-4,1,-29>}
object{ci translate <4,1,-29>}
object{ci translate <-4,2,-28>}
object{ci translate <4,2,-28>}
object{ci translate <-4,3,-27>}
object{ci translate <4,3,-27>}
object{ci translate <-4,4,-26>}
object{ci translate <4,4,-26>}
object{ci translate <-4,5,-25>}
object{ci translate <4,5,-25>}
object{ci translate <-4,6,-24>}
object{ci translate <4,6,-24>}
object{ci translate <-4,7,-23>}
object{ci translate <4,7,-23>}
object{ci translate <-4,8,-22>}
object{ci translate <4,8,-22>}
object{ci translate <-4,9,-21>}
object{ci translate <4,9,-21>}
object{ci translate <-4,10,-20>}
object{ci translate <4,10,-20>}
}
texture{Stone14}
}
object{
union{
object{ci translate <-6.5,10,-20>}
object{ci translate <6.5,10,-20>}
object{ci translate <-9,10,-20>}
object{ci translate <9,10,-20>}
object{ci translate <-11.5,10,-20>}
object{ci translate <11.5,10,-20>}
object{ci translate <-14,10,-20>}
object{ci translate <14,10,-20>}
object{ci translate <-16.5,10,-20>}
object{ci translate <16.5,10,-20>}
object{ci translate <-19,10,-20>}
object{ci translate <19,10,-20>}
}
texture{Stone14}
}
#declare lateral=union{
object{ci translate <0,10,-17.5>}
object{ci translate <0,10,-15>}
object{ci translate <0,10,-12.5>}
object{ci translate <0,10,-10>}
object{ci translate <0,10,-7.5>}
object{ci translate <0,10,-5>}
object{ci translate <0,10,-2.5>}
object{ci}
object{ci translate <0,10,2.5>}
object{ci translate <0,10,5>}
object{ci translate <0,10,7.5>}
object{ci translate <0,10,10>}
object{ci translate <0,10,12.5>}
object{ci translate <0,10,15>}
object{ci translate <0,10,17.5>}
}
object{
union{
object{lateral translate <-19,0,0>}
object{lateral translate <19,0,0>}
object{lateral rotate y*90 translate <0,0,19>}
}
texture{Stone14}
}
object{
difference{
box{<-20,15,-21>,<20,15.5,21>}
box{<-18,14,-19>,<18,16,19>}
box{<-3.6,14,-22>,<3.6,16,20>}
}
texture{Stone14}
}
object{
box{<-21,38,-21>,<21,38.5,21>}
texture{Stone13}
}
object{
union{
object{Hexagon scale <3,2,2> rotate z*90 translate <-18,41.6,-18>}
object{Hexagon scale <3,2,2> rotate z*90 translate <18,41.6,-18>}
object{Hexagon scale <3,2,2> rotate z*90 translate <18,41.6,18>}
object{Hexagon scale <3,2,2> rotate z*90 translate <18,41.6,-18>}
object{Hexagon scale <3,2,2> rotate z*90 translate <0,41.6,0>}
}
texture{Stone21 scale 2.5}
}
object{
box{<-21,44,-21>,<21,44.5,21>}
texture{Stone13}
}
object{
intersection{
sphere{<0,44.5,0>,20 }
plane{y,44.5 inverse}
}
texture{Stone7 scale 5}
}
object{
union{
object{Antorcha translate <-8,0,-36>}
object{Antorcha translate <8,0,-36>}
object{Antorcha translate <8,0,-42>}
object{Antorcha translate <-8,0,-42>}
object{Antorcha translate <8,0,-48>}
object{Antorcha translate <-8,0,-48>}
object{Antorcha translate <-8,0,-54>}
object{Antorcha translate <8,0,-54>}
}
texture{Gold_Metal}
}
object{
box{<-5,0,-80>,<5,0.12,-21>}
texture{PinkAlabaster scale 2}
}